home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
easydr2.zip
/
EASYDOOR.BI
< prev
next >
Wrap
Text File
|
1991-11-15
|
2KB
|
65 lines
' Easy-Door V2.0
' --------------
'
' SUB & FUNCTION DECLARATION
'
DECLARE FUNCTION AddSlash$ (FilePath$)
DECLARE FUNCTION Cap$ (Text$)
DECLARE FUNCTION Cap$ (Text$)
DECLARE FUNCTION Center$ (Text$)
DECLARE FUNCTION GetChar$ ()
DECLARE FUNCTION ModemInputChar$ ()
DECLARE FUNCTION Num2Str$ (IntValue%)
DECLARE FUNCTION TimeLeft% ()
DECLARE SUB AnsiBOX (Y1%, X1%, Y2%, X2%, BoxType%)
DECLARE SUB AnsiPrint (Text$)
DECLARE SUB AnsiLocate (Y%, X%)
DECLARE SUB BackSpace (Number%)
DECLARE SUB Carrier (State%)
DECLARE SUB ChangeDTR (State%)
DECLARE SUB ChangeNPara (Num%, Value%)
DECLARE SUB ChangePara (Num%, Message$)
DECLARE SUB ChangeTime (NewTime%)
DECLARE SUB ChatMode ()
DECLARE SUB CheapSend (Text$)
DECLARE SUB CheckCD ()
DECLARE SUB CheckIB (State%)
DECLARE SUB CheckInac ()
DECLARE SUB CheckOB (State%)
DECLARE SUB CheckTime (FunctionNumber%)
DECLARE SUB ColorizeBAR ()
DECLARE SUB Deinit ()
DECLARE SUB EndError (ErrorMessage$)
DECLARE SUB FileSender (FileName$, TypeNumber%, HotKey$)
DECLARE SUB FileSender (FileName$, TypeNumber%, Key$)
DECLARE SUB HangUp ()
DECLARE SUB HotKeys (State%)
DECLARE SUB Init (Para$(), NPara%())
DECLARE SUB KeyExit (State%)
DECLARE SUB LineFeed (NumberOfLF%)
DECLARE SUB ModemInput (Message$, Box$, Answer$, MaxLen%)
DECLARE SUB ModemOnlySend (Text$)
DECLARE SUB NoCarrier ()
DECLARE SUB NotFound ()
DECLARE SUB Pause (Delay%) '18th/sec
DECLARE SUB PauseClock ()
DECLARE SUB PurgeInBuffer ()
DECLARE SUB PurgeOutBuffer ()
DECLARE SUB ReadDoorFile (FileName$, BBSType%, FullName$, Location$, Baud$, Com$, AnsiFlag$, TimeRemaining$)
DECLARE SUB ResumeClock ()
DECLARE SUB ReturnBBS ()
DECLARE SUB Send (Text$)
DECLARE SUB SendBell ()
DECLARE SUB SendCLS ()
DECLARE SUB SendCR (Text$)
DECLARE SUB SendFile (FileName$, TypeNumber%)
DECLARE SUB SendMenu (FileName$, KeyList$, Key$, TypeNumber%)
DECLARE SUB SendMenuString (FileName$, KeyList$, HotKey$, TypeNumber%)
DECLARE SUB SendTXT (FileName$, TypeNumber%)
DECLARE SUB SpecialCLS ()
DECLARE SUB StatusPrint (Text$)
DECLARE SUB TimeKeys (State%)
DECLARE SUB WaitOB ()